home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Taken_gme213984182009.psc / Taken Demo / Credits.frm next >
Text File  |  2008-12-17  |  3KB  |  86 lines
  1. VERSION 5.00
  2. Begin VB.Form Credits 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   11520
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   15360
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   11520
  14.    ScaleWidth      =   15360
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.TextBox Text1 
  19.       Alignment       =   2  'Center
  20.       BackColor       =   &H00000000&
  21.       BorderStyle     =   0  'None
  22.       BeginProperty Font 
  23.          Name            =   "Arial"
  24.          Size            =   11.25
  25.          Charset         =   0
  26.          Weight          =   700
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       ForeColor       =   &H000000FF&
  32.       Height          =   5535
  33.       Left            =   0
  34.       Locked          =   -1  'True
  35.       MultiLine       =   -1  'True
  36.       TabIndex        =   0
  37.       Text            =   "Credits.frx":0000
  38.       Top             =   5880
  39.       Width           =   15375
  40.    End
  41.    Begin VB.Image Image3 
  42.       Height          =   975
  43.       Left            =   14280
  44.       Picture         =   "Credits.frx":00CB
  45.       Top             =   120
  46.       Width           =   945
  47.    End
  48.    Begin VB.Label Label1 
  49.       AutoSize        =   -1  'True
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "http://Www.YazanMarkabi.Jeeran.coM"
  52.       ForeColor       =   &H00808080&
  53.       Height          =   195
  54.       Index           =   0
  55.       Left            =   120
  56.       TabIndex        =   1
  57.       Top             =   120
  58.       Width           =   2820
  59.    End
  60.    Begin VB.Image Image2 
  61.       Height          =   5055
  62.       Left            =   840
  63.       Picture         =   "Credits.frx":3B73
  64.       Top             =   720
  65.       Width           =   13500
  66.    End
  67. End
  68. Attribute VB_Name = "Credits"
  69. Attribute VB_GlobalNameSpace = False
  70. Attribute VB_Creatable = False
  71. Attribute VB_PredeclaredId = True
  72. Attribute VB_Exposed = False
  73.  
  74. Private Sub Image1_Click()
  75. Label1_Click (0)
  76. End Sub
  77.  
  78. Private Sub Image3_Click()
  79. LogoIntro.Show
  80. Unload Me
  81. End Sub
  82.  
  83. Private Sub Label1_Click(Index As Integer)
  84. Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " + Label1(Index).Caption, vbNormalFocus
  85. End Sub
  86.